home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 September / Macworld (1998-09).dmg / Serious Demos / ArtLine 2.0 / ArtLine 2.0 NoFPU / ArtLine™ 2.0 NoFPU / ArtLine™ 2.0 NoFPU.rsrc / TEXT_129_Header 3.txt < prev    next >
Text File  |  1996-06-27  |  19KB  |  1,539 lines
  1. %%BeginResource: procset Adobe_packedarray 2.0 0
  2. %%Title: (Packed Array Operators)
  3. %%Version: 2.0 
  4. %%CreationDate: (8/2/90) ()
  5. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_packedarray 5 dict dup begin put
  7. /initialize
  8. {
  9. /packedarray where
  10.     {
  11.     pop
  12.     }
  13.     {
  14.     Adobe_packedarray begin
  15.     Adobe_packedarray
  16.         {
  17.         dup xcheck
  18.             {
  19.             bind
  20.             } if
  21.         userdict 3 1 roll put
  22.         } forall
  23.  end
  24.     } ifelse
  25. } def
  26. /terminate
  27. {
  28. } def
  29. /packedarray
  30. {
  31. array astore readonly
  32. } def
  33. /setpacking
  34. {
  35. pop
  36. } def
  37. /currentpacking
  38. {
  39. false
  40. } def
  41. currentdict readonly pop end
  42. %%EndResource
  43. Adobe_packedarray /initialize get exec
  44. %%BeginResource: procset Adobe_cshow 1.1 0
  45. %%Title: (cshow Operator)
  46. %%Version: 1.1 
  47. %%CreationDate: (1/23/89) ()
  48. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  49. currentpacking true setpacking
  50. userdict /Adobe_cshow 3 dict dup begin put
  51. /initialize
  52. {
  53. /cshow where
  54.     {
  55.     pop
  56.     }
  57.     {
  58.     userdict /Adobe_cshow_vars 1 dict dup begin put
  59.     /_cshow
  60.         {} def
  61.     Adobe_cshow begin
  62.     Adobe_cshow
  63.         {
  64.         dup xcheck
  65.             {
  66.             bind
  67.             } if
  68.         userdict 3 1 roll put
  69.         } forall
  70.  end
  71.  end
  72.     } ifelse
  73. } def
  74. /terminate
  75. {
  76. } def
  77. /cshow
  78. {
  79. exch
  80. Adobe_cshow_vars
  81.     exch /_cshow
  82.     exch put
  83.     {
  84.     0 0 Adobe_cshow_vars /_cshow get exec
  85.     } forall
  86. } def
  87. currentdict readonly pop end
  88. setpacking
  89. %%EndResource
  90. %%BeginResource: procset Adobe_customcolor 1.0 0
  91. %%Title: (Custom Color Operators)
  92. %%Version: 1.0 
  93. %%CreationDate: (5/9/88) ()
  94. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  95. currentpacking true setpacking
  96. userdict /Adobe_customcolor 5 dict dup begin put
  97. /initialize
  98. {
  99. /setcustomcolor where
  100.     {
  101.     pop
  102.     }
  103.     {
  104.     Adobe_customcolor begin
  105.     Adobe_customcolor
  106.         {
  107.         dup xcheck
  108.             {
  109.             bind
  110.             } if
  111.         pop pop
  112.         } forall
  113.  end
  114.     Adobe_customcolor begin
  115.     } ifelse
  116. } def
  117. /terminate
  118. {
  119. currentdict Adobe_customcolor eq
  120.     {
  121.  end
  122.     } if
  123. } def
  124. /findcmykcustomcolor
  125. {
  126. 5 packedarray
  127. }  def
  128. /setcustomcolor
  129. {
  130. exch
  131. aload pop pop
  132. 4
  133.     {
  134.     4 index mul 4 1 roll
  135.     } repeat
  136. 5 -1 roll pop
  137. setcmykcolor
  138. } def
  139. /setoverprint
  140. {
  141. pop
  142. } def
  143. currentdict readonly pop end
  144. setpacking
  145. %%EndResource
  146. %%BeginResource: procset Adobe_pattern_AI3 1.0 0
  147. %%Title: (Adobe Illustrator (R) Version 3.0 Pattern Operators)
  148. %%Version: 1.0 
  149. %%CreationDate: (7/21/89) ()
  150. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  151. currentpacking true setpacking
  152. userdict /Adobe_pattern_AI3 16 dict dup begin put
  153. /initialize
  154. {
  155. /definepattern where
  156.     {
  157.     pop
  158.     }
  159.     {
  160.     Adobe_pattern_AI3 begin
  161.     Adobe_pattern_AI3
  162.         {
  163.         dup xcheck
  164.             {
  165.             bind
  166.             } if
  167.         pop pop
  168.         } forall
  169.     mark
  170.     cachestatus 7 1 roll pop pop pop pop exch pop exch
  171.         {
  172.         {
  173.         10000 add
  174.         dup 2 index gt
  175.             {
  176.             break
  177.             } if
  178.         dup setcachelimit
  179.         } loop
  180.         } stopped
  181.     cleartomark
  182.     } ifelse
  183. } def
  184. /terminate
  185. {
  186. currentdict Adobe_pattern_AI3 eq
  187.     {
  188.  end
  189.     } if
  190. } def
  191. errordict
  192. /nocurrentpoint
  193. {
  194. pop
  195. stop
  196. } put
  197. errordict
  198. /invalidaccess
  199. {
  200. pop
  201. stop
  202. } put
  203. /patternencoding
  204. 256 array def
  205. 0 1 255
  206. {
  207. patternencoding exch ( ) 2 copy exch 0 exch put cvn put
  208. } for
  209. /definepattern
  210. {
  211. 17 dict begin
  212. /uniform exch def
  213. /cache exch def
  214. /key exch def
  215. /procarray exch def
  216. /mtx exch matrix invertmatrix def
  217. /height exch def
  218. /width exch def
  219. /ctm matrix currentmatrix def
  220. /ptm matrix def
  221. /str 32 string def
  222. /slice 9 dict def
  223. slice /s 1 put
  224. slice /q 256 procarray length div sqrt floor cvi put
  225. slice /b 0 put
  226. /FontBBox [0 0 0 0] def
  227. /FontMatrix mtx matrix copy def
  228. /Encoding patternencoding def
  229. /FontType 3 def
  230. /BuildChar
  231.     {
  232.     exch
  233.  begin
  234.     slice begin
  235.     dup q dup mul mod s idiv /i exch def
  236.     dup q dup mul mod s mod /j exch def
  237.     q dup mul idiv procarray exch get
  238.     /xl j width s div mul def
  239.     /xg j 1 add width s div mul def
  240.     /yl i height s div mul def
  241.     /yg i 1 add height s div mul def
  242.     uniform
  243.         {
  244.         1 1
  245.         }
  246.         {
  247.         width 0 dtransform
  248.         dup mul exch dup mul add sqrt dup 1 add exch div
  249.         0 height dtransform
  250.         dup mul exch dup mul add sqrt dup 1 add exch div
  251.         } ifelse
  252.     width 0 cache
  253.         {
  254.         xl 4 index mul yl 4 index mul xg 6 index mul yg 6 index mul
  255.         setcachedevice
  256.         }
  257.         {
  258.         setcharwidth
  259.         } ifelse
  260.     gsave
  261.     scale
  262.     newpath
  263.     xl yl moveto
  264.     xg yl lineto
  265.     xg yg lineto
  266.     xl yg lineto
  267.     closepath
  268.     clip
  269.     newpath
  270.  end
  271.  end
  272.     exec
  273.     grestore
  274.     } def
  275. key currentdict definefont
  276. end
  277. } def
  278. /patterncachesize
  279. {
  280. gsave
  281. newpath
  282. 0 0 moveto
  283. width 0 lineto
  284. width height lineto
  285. 0 height lineto
  286. closepath
  287. patternmatrix setmatrix
  288. pathbbox
  289. exch ceiling 4 -1 roll floor sub 3 1 roll
  290. ceiling exch floor sub
  291. mul 1 add
  292. grestore
  293. } def
  294. /patterncachelimit
  295. {
  296. cachestatus 7 1 roll 6 npop 8 mul
  297. } def
  298. /patternpath
  299. {
  300. exch dup begin setfont
  301. ctm setmatrix
  302. concat
  303. slice exch /b exch slice /q get dup mul mul put
  304. FontMatrix concat
  305. uniform
  306.     {
  307.     width 0 dtransform round width div exch round width div exch
  308.     0 height dtransform round height div exch height div exch
  309.     0 0 transform round exch round exch
  310.     ptm astore setmatrix
  311.     }
  312.     {
  313.     ptm currentmatrix pop
  314.     } ifelse
  315. {currentpoint} stopped not
  316.     {
  317.     2 npop
  318.     pathbbox
  319.     true
  320.     4 index 3 index eq
  321.     4 index 3 index eq
  322.     and
  323.         {
  324.         pop false
  325.             {
  326.             {2 npop}
  327.             {3 npop true}
  328.             {7 npop true}
  329.             {pop true}
  330.             pathforall
  331.             } stopped
  332.             {
  333.             5 npop true
  334.             } if
  335.         } if
  336.         {
  337.         height div ceiling height mul 4 1 roll
  338.         width div ceiling width mul 4 1 roll
  339.         height div floor height mul 4 1 roll
  340.         width div floor width mul 4 1 roll
  341.         2 index sub height div ceiling cvi exch
  342.         3 index sub width div ceiling cvi exch
  343.         4 2 roll moveto
  344.         FontMatrix mtx invertmatrix
  345.         dup dup 4 get exch 5 get rmoveto
  346.         ptm ptm concatmatrix pop
  347.         slice /s
  348.         patterncachesize patterncachelimit div ceiling sqrt ceiling cvi
  349.         dup slice /q get gt
  350.             {
  351.             pop slice /q get
  352.             } if
  353.         put
  354.         0 1 slice /s get dup mul 1 sub
  355.             {
  356.             slice /b get add
  357.             gsave
  358.             0 1 str length 1 sub
  359.                 {
  360.                 str exch 2 index put
  361.                 } for
  362.             pop
  363.             dup
  364.                 {
  365.                 gsave
  366.                 ptm setmatrix
  367.                 1 index str length idiv {str show} repeat
  368.                 1 index str length mod str exch 0 exch getinterval show
  369.                 grestore
  370.                 0 height rmoveto
  371.                 } repeat
  372.             grestore
  373.             } for
  374.         2 npop
  375.         }
  376.         {
  377.         4 npop
  378.         } ifelse
  379.     } if
  380. end
  381. } def
  382. /patternclip
  383. {
  384. clip
  385. } def
  386. /patternstrokepath
  387. {
  388. strokepath
  389. } def
  390. /patternmatrix
  391. matrix def
  392. /patternfill
  393. {
  394. dup type /dicttype eq
  395.     {
  396.     Adobe_pattern_AI3 /patternmatrix get
  397.     } if
  398. gsave
  399. patternclip
  400. Adobe_pattern_AI3 /patternpath get exec
  401. grestore
  402. newpath
  403. } def
  404. /patternstroke
  405. {
  406. dup type /dicttype eq
  407.     {
  408.     Adobe_pattern_AI3 /patternmatrix get
  409.     } if
  410. gsave
  411. patternstrokepath
  412. true
  413.     {
  414.         {
  415.             {
  416.             newpath 
  417.             moveto
  418.             }
  419.             {
  420.             lineto
  421.             }
  422.             {
  423.             curveto
  424.             }
  425.             {
  426.             closepath
  427.             3 copy
  428.             Adobe_pattern_AI3 /patternfill get exec
  429.             } pathforall
  430.         3 npop
  431.         } stopped
  432.             {
  433.             5 npop
  434.             patternclip
  435.             Adobe_pattern_AI3 /patternfill get exec
  436.             } if
  437.     }
  438.     {
  439.     patternclip
  440.     Adobe_pattern_AI3 /patternfill get exec
  441.     } ifelse
  442. grestore
  443. newpath
  444. } def
  445. /patternashow
  446. {
  447. 3 index type /dicttype eq
  448.     {
  449.     Adobe_pattern_AI3 /patternmatrix get 4 1 roll
  450.     } if
  451.     {
  452.     2 npop (0) exch
  453.     2 copy 0 exch put pop
  454.     gsave
  455.     false charpath currentpoint
  456.     6 index 6 index 6 index
  457.     Adobe_pattern_AI3 /patternfill get exec
  458.     grestore
  459.     newpath moveto
  460.     2 copy rmoveto
  461.     } exch cshow
  462. 5 npop
  463. } def
  464. /patternawidthshow
  465. {
  466. 6 index type /dicttype eq
  467.     {
  468.     Adobe_pattern_AI3 /patternmatrix get 7 1 roll
  469.     } if
  470.     {
  471.     2 npop (0) exch
  472.     2 copy 0 exch put 
  473.     gsave
  474.     _sp eq {5 index 5 index rmoveto} if
  475.     false charpath currentpoint
  476.     9 index 9 index 9 index
  477.     Adobe_pattern_AI3 /patternfill get exec
  478.     grestore
  479.     newpath moveto
  480.     2 copy rmoveto
  481.     } exch cshow
  482. 8 npop
  483. } def
  484. /patternashowstroke
  485. {
  486. 4 index type /dicttype eq
  487.     {
  488.     patternmatrix /patternmatrix get 5 1 roll
  489.     } if
  490. 4 1 roll
  491.     {
  492.     2 npop (0) exch
  493.     2 copy 0 exch put pop
  494.     gsave
  495.     false charpath
  496.     currentpoint
  497.     4 index setmatrix
  498.     7 index 7 index 7 index
  499.     Adobe_pattern_AI3 /patternstroke get exec
  500.     grestore
  501.     newpath moveto
  502.     2 copy rmoveto
  503.     } exch cshow
  504. 6 npop
  505. } def
  506. /patternawidthshowstroke
  507. {
  508. 7 index type /dicttype eq
  509.     {
  510.     patternmatrix /patternmatrix get 8 1 roll
  511.     } if
  512. 7 1 roll
  513.     {
  514.     2 npop (0) exch
  515.     2 copy 0 exch put
  516.     gsave
  517.     _sp eq {5 index 5 index rmoveto} if
  518.     false charpath currentpoint
  519.     7 index setmatrix
  520.     10 index 10 index 10 index
  521.     Adobe_pattern_AI3 /patternstroke get exec
  522.     grestore
  523.     newpath moveto
  524.     2 copy rmoveto
  525.     } exch cshow
  526. 9 npop
  527. } def
  528. currentdict readonly pop end
  529. setpacking
  530. %%EndResource
  531. %%BeginResource: procset Adobe_Illustrator_AI3 1.0 3
  532. %%Title: (Adobe Illustrator (R) Version 3.0 Full Prolog)
  533. %%Version: 1.0 
  534. %%CreationDate: (7/22/89) ()
  535. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  536. currentpacking true setpacking
  537. userdict /Adobe_Illustrator_AI3 71 dict dup begin put
  538. /initialize
  539. {
  540. userdict /Adobe_Illustrator_AI3_vars 67 dict dup begin put
  541. /_lp /none def
  542. /_pf {} def
  543. /_ps {} def
  544. /_psf {} def
  545. /_pss {} def
  546. /_pjsf {} def
  547. /_pjss {} def
  548. /_pola 0 def
  549. /_doClip 0 def
  550. /cf    currentflat def
  551. /_tm matrix def
  552. /_renderStart [/e0 /r0 /a0 /o0 /e1 /r1 /a1 /i0] def 
  553. /_renderEnd [null null null null /i1 /i1 /i1 /i1] def
  554. /_render -1 def
  555. /_rise 0 def
  556. /_ax 0 def
  557. /_ay 0 def
  558. /_cx 0 def
  559. /_cy 0 def
  560. /_leading [0 0] def
  561. /_ctm matrix def
  562. /_mtx matrix def
  563. /_sp 16#020 def
  564. /_hyphen (-) def
  565. /_fScl 0 def
  566. /_cnt 0 def
  567. /_hs 1 def
  568. /_nativeEncoding 0 def
  569. /_useNativeEncoding 0 def
  570. /_tempEncode 0 def
  571. /_pntr 0 def
  572. /_tDict 2 dict def
  573. /_wv 0 def
  574. /Tx {} def
  575. /Tj {} def
  576. /CRender {} def
  577. /_AI3_savepage {} def
  578. /_gf null def
  579. /_cf 4 array def
  580. /_if null def
  581. /_of false def
  582. /_fc {} def
  583. /_gs null def
  584. /_cs 4 array def
  585. /_is null def
  586. /_os false def
  587. /_sc {} def
  588. /_pd 1 dict def
  589. /_ed 15 dict def
  590. /_pm matrix def
  591. /_fm null def
  592. /_fd null def
  593. /_fdd null def
  594. /_sm null def
  595. /_sd null def
  596. /_sdd null def
  597. /_i null def
  598. Adobe_Illustrator_AI3 begin
  599. Adobe_Illustrator_AI3 dup /nc get begin
  600.     {
  601.     dup xcheck
  602.         {
  603.         bind
  604.         } if
  605.     pop pop
  606.     } forall
  607. end
  608. end
  609. end
  610. Adobe_Illustrator_AI3 begin
  611. Adobe_Illustrator_AI3_vars begin
  612. newpath
  613. } def
  614. /terminate
  615. {
  616. end
  617. end
  618. } def
  619. /_
  620. null def
  621. /ddef
  622. {
  623. Adobe_Illustrator_AI3_vars 3 1 roll put
  624. } def
  625. /xput
  626. {
  627. dup load dup length exch maxlength eq
  628.     {
  629.     dup dup load dup
  630.     length 2 mul dict copy def
  631.     } if
  632. load begin def end
  633. } def
  634. /npop
  635. {
  636.     {
  637.     pop
  638.     } repeat
  639. } def
  640. /sw
  641. {
  642. dup length exch stringwidth
  643. exch 5 -1 roll 3 index mul add
  644. 4 1 roll 3 1 roll mul add
  645. } def
  646. /swj
  647. {
  648. dup 4 1 roll
  649. dup length exch stringwidth 
  650. exch 5 -1 roll 3 index mul add
  651. 4 1 roll 3 1 roll mul add 
  652. 6 2 roll /_cnt 0 ddef
  653. {1 index eq {/_cnt _cnt 1 add ddef} if} forall pop
  654. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  655. } def
  656. /ss
  657. {
  658. 4 1 roll
  659.     {
  660.     2 npop 
  661.     (0) exch 2 copy 0 exch put pop
  662.     gsave
  663.     false charpath currentpoint
  664.     4 index setmatrix
  665.     stroke
  666.     grestore
  667.     moveto
  668.     2 copy rmoveto
  669.     } exch cshow
  670. 3 npop
  671. } def
  672. /jss
  673. {
  674. 4 1 roll
  675.     {
  676.     2 npop 
  677.     (0) exch 2 copy 0 exch put 
  678.     gsave
  679.     _sp eq 
  680.         {
  681.         exch 6 index 6 index 6 index 5 -1 roll widthshow  
  682.         currentpoint
  683.         }
  684.         {
  685.         false charpath currentpoint
  686.         4 index setmatrix stroke
  687.         }ifelse
  688.     grestore
  689.     moveto
  690.     2 copy rmoveto
  691.     } exch cshow
  692. 6 npop
  693. } def
  694. /sp
  695. {
  696.     {
  697.     2 npop (0) exch
  698.     2 copy 0 exch put pop
  699.     false charpath
  700.     2 copy rmoveto
  701.     } exch cshow
  702. 2 npop
  703. } def
  704. /jsp
  705. {
  706.     {
  707.     2 npop 
  708.     (0) exch 2 copy 0 exch put 
  709.     _sp eq 
  710.         {
  711.         exch 5 index 5 index 5 index 5 -1 roll widthshow  
  712.         }
  713.         {
  714.         false charpath
  715.         }ifelse
  716.     2 copy rmoveto
  717.     } exch cshow
  718. 5 npop
  719. } def
  720. /pl
  721. {
  722. transform
  723. 0.25 sub round 0.25 add exch
  724. 0.25 sub round 0.25 add exch
  725. itransform
  726. } def
  727. /setstrokeadjust where
  728.     {
  729.     pop true setstrokeadjust
  730.     /c
  731.     {
  732.     curveto
  733.     } def
  734.     /C
  735.     /c load def
  736.     /v
  737.     {
  738.     currentpoint 6 2 roll curveto
  739.     } def
  740.     /V
  741.     /v load def
  742.     /y
  743.     {
  744.     2 copy curveto
  745.     } def
  746.     /Y
  747.     /y load def
  748.     /l
  749.     {
  750.     lineto
  751.     } def
  752.     /L
  753.     /l load def
  754.     /m
  755.     {
  756.     moveto
  757.     } def
  758.     }
  759.     {
  760.     /c
  761.     {
  762.     pl curveto
  763.     } def
  764.     /C
  765.     /c load def
  766.     /v
  767.     {
  768.     currentpoint 6 2 roll pl curveto
  769.     } def
  770.     /V
  771.     /v load def
  772.     /y
  773.     {
  774.     pl 2 copy curveto
  775.     } def
  776.     /Y
  777.     /y load def
  778.     /l
  779.     {
  780.     pl lineto
  781.     } def
  782.     /L
  783.     /l load def
  784.     /m
  785.     {
  786.     pl moveto
  787.     } def
  788.     } ifelse
  789. /d
  790. {
  791. setdash
  792. } def
  793. /cf    {} def
  794. /i
  795. {
  796. dup 0 eq
  797.     {
  798.     pop cf
  799.     } if
  800. setflat
  801. } def
  802. /j
  803. {
  804. setlinejoin
  805. } def
  806. /J
  807. {
  808. setlinecap
  809. } def
  810. /M
  811. {
  812. setmiterlimit
  813. } def
  814. /w
  815. {
  816. setlinewidth
  817. } def
  818. /H
  819. {} def
  820. /h
  821. {
  822. closepath
  823. } def
  824. /N
  825. {
  826. _pola 0 eq 
  827.     {
  828.     _doClip 1 eq {clip /_doClip 0 ddef} if 
  829.     newpath
  830.     } 
  831.     {
  832.     /CRender {N} ddef
  833.     }ifelse
  834. } def
  835. /n
  836. {N} def
  837. /F
  838. {
  839. _pola 0 eq 
  840.     {
  841.     _doClip 1 eq 
  842.         {
  843.         gsave _pf grestore clip newpath /_lp /none ddef _fc 
  844.         /_doClip 0 ddef
  845.         }
  846.         {
  847.         _pf
  848.         }ifelse
  849.     } 
  850.     {
  851.     /CRender {F} ddef
  852.     }ifelse
  853. } def
  854. /f
  855. {
  856. closepath
  857. F
  858. } def
  859. /S
  860. {
  861. _pola 0 eq 
  862.     {
  863.     _doClip 1 eq 
  864.         {
  865.         gsave _ps grestore clip newpath /_lp /none ddef _sc 
  866.         /_doClip 0 ddef
  867.         }
  868.         {
  869.         _ps
  870.         }ifelse
  871.     } 
  872.     {
  873.     /CRender {S} ddef
  874.     }ifelse
  875. } def
  876. /s
  877. {
  878. closepath
  879. S
  880. } def
  881. /B
  882. {
  883. _pola 0 eq 
  884.     {
  885.     _doClip 1 eq
  886.     gsave F grestore 
  887.         {
  888.         gsave S grestore clip newpath /_lp /none ddef _sc
  889.         /_doClip 0 ddef
  890.         } 
  891.         {
  892.         S
  893.         }ifelse
  894.     }
  895.     {
  896.     /CRender {B} ddef
  897.     }ifelse
  898. } def
  899. /b
  900. {
  901. closepath
  902. B
  903. } def
  904. /W
  905. {
  906. /_doClip 1 ddef
  907. } def
  908. /*
  909. {
  910. count 0 ne 
  911.     {
  912.     dup type (stringtype) eq {pop} if
  913.     } if 
  914. _pola 0 eq {newpath} if
  915. } def
  916. /u
  917. {} def
  918. /U
  919. {} def
  920. /q
  921. {
  922. _pola 0 eq {gsave} if
  923. } def
  924. /Q
  925. {
  926. _pola 0 eq {grestore} if
  927. } def
  928. /*u
  929. {
  930. _pola 1 add /_pola exch ddef
  931. } def
  932. /*U
  933. {
  934. _pola 1 sub /_pola exch ddef 
  935. _pola 0 eq {CRender} if
  936. } def
  937. /D
  938. {pop} def
  939. /*w
  940. {} def
  941. /*W
  942. {} def
  943. /`
  944. {
  945. /_i save ddef
  946. 6 1 roll 4 npop
  947. concat pop
  948. userdict begin
  949. /showpage {} def
  950. 0 setgray
  951. 0 setlinecap
  952. 1 setlinewidth
  953. 0 setlinejoin
  954. 10 setmiterlimit
  955. [] 0 setdash
  956. newpath
  957. 0 setgray
  958. false setoverprint
  959. } def
  960. /~
  961. {
  962. end
  963. _i restore
  964. } def
  965. /@
  966. {} def
  967. /&
  968. {} def
  969. /O
  970. {
  971. 0 ne
  972. /_of exch ddef
  973. /_lp /none ddef
  974. } def
  975. /R
  976. {
  977. 0 ne
  978. /_os exch ddef
  979. /_lp /none ddef
  980. } def
  981. /g
  982. {
  983. /_gf exch ddef
  984. /_fc
  985. {
  986. _lp /fill ne
  987.     {
  988.     _of setoverprint
  989.     _gf setgray
  990.     /_lp /fill ddef
  991.     } if
  992. } ddef
  993. /_pf
  994. {
  995. _fc
  996. fill
  997. } ddef
  998. /_psf
  999. {
  1000. _fc
  1001. ashow
  1002. } ddef
  1003. /_pjsf
  1004. {
  1005. _fc
  1006. awidthshow
  1007. } ddef
  1008. /_lp /none ddef
  1009. } def
  1010. /G
  1011. {
  1012. /_gs exch ddef
  1013. /_sc
  1014. {
  1015. _lp /stroke ne
  1016.     {
  1017.     _os setoverprint
  1018.     _gs setgray
  1019.     /_lp /stroke ddef
  1020.     } if
  1021. } ddef
  1022. /_ps
  1023. {
  1024. _sc
  1025. stroke
  1026. } ddef
  1027. /_pss
  1028. {
  1029. _sc
  1030. ss
  1031. } ddef
  1032. /_pjss
  1033. {
  1034. _sc
  1035. jss
  1036. } ddef
  1037. /_lp /none ddef
  1038. } def
  1039. /k
  1040. {
  1041. _cf astore pop
  1042. /_fc
  1043. {
  1044. _lp /fill ne
  1045.     {
  1046.     _of setoverprint
  1047.     _cf aload pop setcmykcolor
  1048.     /_lp /fill ddef
  1049.     } if
  1050. } ddef
  1051. /_pf
  1052. {
  1053. _fc
  1054. fill
  1055. } ddef
  1056. /_psf
  1057. {
  1058. _fc
  1059. ashow
  1060. } ddef
  1061. /_pjsf
  1062. {
  1063. _fc
  1064. awidthshow
  1065. } ddef
  1066. /_lp /none ddef
  1067. } def
  1068. /K
  1069. {
  1070. _cs astore pop
  1071. /_sc
  1072. {
  1073. _lp /stroke ne
  1074.     {
  1075.     _os setoverprint
  1076.     _cs aload pop setcmykcolor
  1077.     /_lp /stroke ddef
  1078.     } if
  1079. } ddef
  1080. /_ps
  1081. {
  1082. _sc
  1083. stroke
  1084. } ddef
  1085. /_pss
  1086. {
  1087. _sc
  1088. ss
  1089. } ddef
  1090. /_pjss
  1091. {
  1092. _sc
  1093. jss
  1094. } ddef
  1095. /_lp /none ddef
  1096. } def
  1097. /x
  1098. {
  1099. /_gf exch ddef
  1100. findcmykcustomcolor
  1101. /_if exch ddef
  1102. /_fc
  1103. {
  1104. _lp /fill ne
  1105.     {
  1106.     _of setoverprint
  1107.     _if _gf 1 exch sub setcustomcolor
  1108.     /_lp /fill ddef
  1109.     } if
  1110. } ddef
  1111. /_pf
  1112. {
  1113. _fc
  1114. fill
  1115. } ddef
  1116. /_psf
  1117. {
  1118. _fc
  1119. ashow
  1120. } ddef
  1121. /_pjsf
  1122. {
  1123. _fc
  1124. awidthshow
  1125. } ddef
  1126. /_lp /none ddef
  1127. } def
  1128. /X
  1129. {
  1130. /_gs exch ddef
  1131. findcmykcustomcolor
  1132. /_is exch ddef
  1133. /_sc
  1134. {
  1135. _lp /stroke ne
  1136.     {
  1137.     _os setoverprint
  1138.     _is _gs 1 exch sub setcustomcolor
  1139.     /_lp /stroke ddef
  1140.     } if
  1141. } ddef
  1142. /_ps
  1143. {
  1144. _sc
  1145. stroke
  1146. } ddef
  1147. /_pss
  1148. {
  1149. _sc
  1150. ss
  1151. } ddef
  1152. /_pjss
  1153. {
  1154. _sc
  1155. jss
  1156. } ddef
  1157. /_lp /none ddef
  1158. } def
  1159. /dp
  1160. {
  1161. dup null eq
  1162. {
  1163. pop
  1164. _dp 0 ne
  1165.     {
  1166.     0 1 _dp 1 sub _dl mod
  1167.         {
  1168.         _da exch get 3 get
  1169.         } for
  1170.     _dp 1 sub _dl mod 1 add packedarray
  1171.     _da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll
  1172.     definepattern pop
  1173.     } if
  1174. }
  1175. {
  1176. _dp 0 ne _dp _dl mod 0 eq and
  1177.     {
  1178.     null dp
  1179.     } if
  1180. 7 packedarray _da exch _dp _dl mod exch put
  1181. _dp _dl mod _da 0 get 4 get 2 packedarray
  1182. /_dp _dp 1 add def
  1183. } ifelse
  1184. } def
  1185. /E
  1186. {
  1187. _ed begin
  1188. dup 0 get type /arraytype ne
  1189.     {
  1190.     0
  1191.         {
  1192.         dup 1 add index type /arraytype eq
  1193.             {
  1194.             1 add
  1195.             }
  1196.             {
  1197.             exit
  1198.             } ifelse
  1199.         } loop
  1200.     array astore
  1201.     } if
  1202. /_dd exch def
  1203. /_ury exch def
  1204. /_urx exch def
  1205. /_lly exch def
  1206. /_llx exch def
  1207. /_n exch def
  1208. /_y 0 def
  1209. /_dl 4 def
  1210. /_dp 0 def
  1211. /_da _dl array def
  1212. 0 1 _dd length 1 sub
  1213.     {
  1214.     /_d exch _dd exch get def
  1215.     0 2 _d length 2 sub
  1216.         {
  1217.         /_x exch def
  1218.         /_c _d _x get _ ne def
  1219.         /_r _d _x 1 add get cvlit def
  1220.         _r _ ne
  1221.             {
  1222.             _urx _llx sub _ury _lly sub [1 0 0 1 0 0] 
  1223.                 [
  1224.                 /save cvx
  1225.                 _llx neg _lly neg /translate cvx
  1226.                 _c
  1227.                     {
  1228.                     nc /begin cvx
  1229.                     } if
  1230.                 _r dup type /stringtype eq
  1231.                     {
  1232.                     cvx
  1233.                     }
  1234.                     {
  1235.                     {exec} /forall cvx
  1236.                     } ifelse
  1237.                 _c
  1238.                     {
  1239.                     /end cvx
  1240.                     } if
  1241.                 /restore cvx
  1242.                 ] cvx
  1243.             /_fn 12 _n length add string def
  1244.             _y _fn cvs pop
  1245.             /_y _y 1 add def
  1246.             _fn 12 _n putinterval
  1247.             _fn _c false dp
  1248.             _d exch _x 1 add exch put
  1249.             } if
  1250.         } for
  1251.     } for
  1252. null dp
  1253. _n _dd /_pd
  1254. end xput
  1255. } def
  1256. /fc
  1257. {
  1258. _fm dup concatmatrix pop
  1259. } def
  1260. /p
  1261. {
  1262. /_fm exch ddef
  1263. 9 -2 roll _pm translate fc
  1264. 7 -2 roll _pm scale fc
  1265. 5 -1 roll _pm rotate fc
  1266. 4 -2 roll exch 0 ne
  1267.     {
  1268.     dup _pm rotate fc
  1269.     1 -1 _pm scale fc
  1270.     neg _pm rotate fc
  1271.     }
  1272.     {
  1273.     pop
  1274.     } ifelse
  1275. dup _pm rotate fc
  1276. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  1277. _pm astore fc
  1278. neg _pm rotate fc
  1279. _pd exch get /_fdd exch ddef
  1280. /_pf
  1281. {
  1282. save
  1283. /_doClip 0 ddef
  1284. 0 1 _fdd length 1 sub
  1285.     {
  1286.     /_fd exch _fdd exch get ddef
  1287.     _fd
  1288.     0 2 _fd length 2 sub
  1289.         {
  1290.         gsave
  1291.         2 copy get dup _ ne
  1292.             {
  1293.             cvx exec _fc
  1294.             }
  1295.             {
  1296.             pop
  1297.             } ifelse
  1298.         2 copy 1 add get dup _ ne
  1299.             {
  1300.             aload pop findfont _fm
  1301.             patternfill
  1302.             }
  1303.             {
  1304.             pop
  1305.             fill
  1306.             } ifelse
  1307.         grestore
  1308.         pop
  1309.         } for
  1310.     pop
  1311.     } for
  1312. restore
  1313. newpath
  1314. } ddef
  1315. /_psf
  1316. {
  1317. save
  1318. /_doClip 0 ddef
  1319. 0 1 _fdd length 1 sub
  1320.     {
  1321.     /_fd exch _fdd exch get ddef
  1322.     _fd
  1323.     0 2 _fd length 2 sub
  1324.         {
  1325.         gsave
  1326.         2 copy get dup _ ne
  1327.             {
  1328.             cvx exec _fc
  1329.             }
  1330.             {
  1331.             pop
  1332.             } ifelse
  1333.         2 copy 1 add get dup _ ne
  1334.             {
  1335.             aload pop findfont _fm
  1336.             9 copy 6 npop patternashow
  1337.             }
  1338.             {
  1339.             pop
  1340.             6 copy 3 npop ashow
  1341.             } ifelse
  1342.         grestore
  1343.         pop
  1344.         } for
  1345.     pop
  1346.     } for
  1347. restore
  1348. %3 npop newpath
  1349. sw rmoveto
  1350. } ddef
  1351. /_pjsf
  1352. {
  1353. save
  1354. /_doClip 0 ddef
  1355. 0 1 _fdd length 1 sub
  1356.     {
  1357.     /_fd exch _fdd exch get ddef
  1358.     _fd
  1359.     0 2 _fd length 2 sub
  1360.         {
  1361.         gsave
  1362.         2 copy get dup _ ne
  1363.             {
  1364.             cvx exec _fc
  1365.             }
  1366.             {
  1367.             pop
  1368.             } ifelse
  1369.         2 copy 1 add get dup _ ne
  1370.             {
  1371.             aload pop findfont _fm
  1372.             12 copy 6 npop patternawidthshow
  1373.             }
  1374.             {
  1375.             pop 9 copy 3 npop awidthshow
  1376.             } ifelse
  1377.         grestore
  1378.         pop
  1379.         } for
  1380.     pop
  1381.     } for
  1382. restore
  1383. swj rmoveto
  1384. } ddef
  1385. /_lp /none ddef
  1386. } def
  1387. /sc
  1388. {
  1389. _sm dup concatmatrix pop
  1390. } def
  1391. /P
  1392. {
  1393. /_sm exch ddef
  1394. 9 -2 roll _pm translate sc
  1395. 7 -2 roll _pm scale sc
  1396. 5 -1 roll _pm rotate sc
  1397. 4 -2 roll exch 0 ne
  1398.     {
  1399.     dup _pm rotate sc
  1400.     1 -1 _pm scale sc
  1401.     neg _pm rotate sc
  1402.     }
  1403.     {
  1404.     pop
  1405.     } ifelse
  1406. dup _pm rotate sc
  1407. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  1408. _pm astore sc
  1409. neg _pm rotate sc
  1410. _pd exch get /_sdd exch ddef
  1411. /_ps
  1412. {
  1413. save
  1414. /_doClip 0 ddef
  1415. 0 1 _sdd length 1 sub
  1416.     {
  1417.     /_sd exch _sdd exch get ddef
  1418.     _sd
  1419.     0 2 _sd length 2 sub
  1420.         {
  1421.         gsave
  1422.         2 copy get dup _ ne
  1423.             {
  1424.             cvx exec _sc
  1425.             }
  1426.             {
  1427.             pop
  1428.             } ifelse
  1429.         2 copy 1 add get dup _ ne
  1430.             {
  1431.             aload pop findfont _sm
  1432.             patternstroke
  1433.             }
  1434.             {
  1435.             pop stroke
  1436.             } ifelse
  1437.         grestore
  1438.         pop
  1439.         } for
  1440.     pop
  1441.     } for
  1442. restore
  1443. newpath
  1444. } ddef
  1445. /_pss
  1446. {
  1447. save
  1448. /_doClip 0 ddef
  1449. 0 1 _sdd length 1 sub
  1450.     {
  1451.     /_sd exch _sdd exch get ddef
  1452.     _sd
  1453.     0 2 _sd length 2 sub
  1454.         {
  1455.         gsave
  1456.         2 copy get dup _ ne
  1457.             {
  1458.             cvx exec _sc
  1459.             }
  1460.             {
  1461.             pop
  1462.             } ifelse
  1463.         2 copy 1 add get dup _ ne
  1464.             {
  1465.             aload pop findfont _sm
  1466.             10 copy 6 npop patternashowstroke
  1467.             }
  1468.             {
  1469.             pop 7 copy 3 npop ss
  1470.             } ifelse
  1471.         grestore
  1472.         pop
  1473.         } for
  1474.     pop
  1475.     } for
  1476. restore
  1477. pop sw rmoveto
  1478. } ddef
  1479. /_pjss
  1480. {
  1481. save
  1482. /_doClip 0 ddef
  1483. 0 1 _sdd length 1 sub
  1484.     {
  1485.     /_sd exch _sdd exch get ddef
  1486.     _sd
  1487.     0 2 _sd length 2 sub
  1488.         {
  1489.         gsave
  1490.         2 copy get dup _ ne
  1491.             {
  1492.             cvx exec _sc
  1493.             }
  1494.             {
  1495.             pop
  1496.             } ifelse
  1497.         2 copy 1 add get dup _ ne
  1498.             {
  1499.             aload pop findfont _sm
  1500.             13 copy 6 npop patternawidthshowstroke
  1501.             }
  1502.             {
  1503.             pop 10 copy 3 npop jss
  1504.             } ifelse
  1505.         grestore
  1506.         pop
  1507.         } for
  1508.     pop
  1509.     } for
  1510. restore
  1511. pop swj rmoveto
  1512. } ddef
  1513. /_lp /none ddef
  1514. } def
  1515. /A
  1516. {
  1517. pop
  1518. } def
  1519. /nc 3 dict def
  1520. nc begin
  1521. /setgray
  1522. {
  1523. pop
  1524. } bind def
  1525. /setcmykcolor
  1526. {
  1527. 4 npop
  1528. } bind def
  1529. /setcustomcolor
  1530. {
  1531. 2 npop
  1532. } bind def
  1533. currentdict readonly pop end
  1534. currentdict readonly pop end
  1535. setpacking
  1536. /annotatepage
  1537. {
  1538. } def
  1539. %%EndResource